home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / sbbs_115.zip / STRUCT.115 < prev    next >
Text File  |  1992-01-14  |  32KB  |  872 lines
  1.  
  2. (***************************************************************************)
  3. (**                      Unit Struct for SuperBBS                         **)
  4. (**              Copyright 1992 by Risto Virkkala & Aki Antman            **)
  5. (***************************************************************************)
  6. Type
  7.  
  8.   MsgToIdxRecord = String[35];
  9.   FlagType = Array[1..4] of Byte;
  10.   Msgtxtrecord = String[255];
  11.   Lastreadrecord = Array[1..200] of integer;
  12.  
  13.   LineIdxRec = Record
  14.                  User:                  MsgToIdxRecord;
  15.                  Attribute,
  16.                  Status:                Byte;
  17.                  Baud:                  Word;
  18.                  City:                  String[25];
  19.                  ExtraSpace:            Array[1..10] of byte;
  20.                End;
  21.  
  22. (*  Attribute :
  23.  
  24.      Bit 0 = Line in use
  25.          1 = Do not disturb mode
  26.          2 = waiting for call
  27.  
  28.     Status (Not bit-mapped) :
  29.  
  30.      Nr  0 = Doing nothing
  31.          1 = Downloading file(s)
  32.          2 = Uploading file(s)
  33.          3 = Reading messages
  34.          4 = Entering message (also onlinemsg)
  35.          5 = Chatting with SysOp
  36.          6 = Using external program, etc...
  37.          7 = Logging on
  38.          8 = using qwk system
  39.  
  40. *)
  41.  
  42.   BoxListRec = Record                                 (* BBSLIST.BBS  *)
  43.                  BBSName:              String[40];
  44.                  Sysopname:            MsgToIdxRecord;
  45.                  Number:               String[15];
  46.                  Baud:                 Word;
  47.                  OpenTimes:            String[11];
  48.                  Net:                  String[15];
  49.                  BBSSoft:              String[10];
  50.                  Other:                String[60];
  51.                  ExtraSpace:           Array[1..150] of byte;
  52.                End;
  53.  
  54.   FLSearchRec  = Record                               (* FLSEARCH.BBS *)
  55.                    Name:               String[60];
  56.                    Directory:          String[79];
  57.                    Security:           Integer;
  58.                    Flags:              Flagtype;
  59.                    PFilesSec:          Integer;   { Not yet used }
  60.                    PFlags:             Flagtype;  { Not yet used }
  61.                    Attrib:             Byte;
  62.                    Age:                Byte;
  63.                    ListName:           String[67];
  64.                    ExtraSpace:         Array[1..30] of Byte;
  65.                  End;
  66. (*  Attrib:
  67.  
  68.       Bit 0  : Exclude from template
  69.       Bit 1  : No downloads  { Used in template system only }
  70.       Bit 2  : No uploads    { Used in template system only }
  71.       Bit 3  : No virus check
  72.       Bit 4  : No dupe scan
  73.       Bit 5  : No new files check
  74.       Bit 6-7: Unused
  75.  
  76. *)
  77.  
  78.   DoorRec = record
  79.               Name:       String[35];
  80.               CmdLine:    String[127];
  81.               Security:   Word;
  82.               Flags:      Flagtype;
  83.               StartTime,
  84.               EndTime:    String[5];
  85.               Active:     Boolean;
  86.               ExtraSpace: Array[1..30] of Byte;
  87.             End;
  88.  
  89.  
  90.  
  91.   CommentRecord = Record                              (* COMMENT.BBS  *)
  92.                     Txt      : Array[1..2] of String[76];
  93.                     FromName : MsgToIdxRecord;
  94.                     FromCity : String[25];
  95.                     PostTime : String[5];
  96.                     PostDate : String[8];
  97.                   End;
  98.  
  99.   LastCallerRec = Record                              (* SCALLERS.BBS *)
  100.                     Name:              MsgToIdxRecord;
  101.                     City:              String[25];
  102.                     Line,
  103.                     Age:               Byte;
  104.                     Baud:              Word;
  105.                     LastDate:          String[8];
  106.                     LogOn,
  107.                     LogOff:            String[5];
  108.                   End;
  109.  
  110.   Limitsrecord = Record                               (*  LIMITS.BBS  *)
  111.                    Security:           Word;
  112.                    Downlimit:          Array [1..7] of word;
  113.                    Timelimit:          Word;
  114.                    Ratiok:             Word;
  115.                    Ratio:              Word;
  116.                    Callsperday:        Byte;
  117.                    Description:        String[35];
  118.                    ExtraSpace:         Array [1..14] of byte;
  119.                  End;
  120.  
  121.   ExtraUserRec=Record                                 (*  SUSERS.BBS  *)
  122.                  Name:               MsgToIdxRecord;
  123.                  Birthday:           String[8];
  124.                  Attrib:             Word;
  125.                  Flags:              Array[1..4] of Byte; { Not yet used }
  126.                  Firsttime:          String[5];
  127.                  FirstDate:          String[8];
  128.                  CombinedBoards:     Array[1..25]  of Byte;
  129.                  SysOpComment:       String[79];
  130.                  DefaultProto:       Char;                { Not yet used }
  131.                  UserRecPtr:         Integer;
  132.                  Colors:             Array[1..10] of byte;
  133.                  FileListType:       Byte;                { Not yet used }
  134.                  Alias:              MsgToIdxRecord;
  135.                  MinutesUsed:        Longint;
  136.                  ViewFileName:       String[12]; { SeeAlso attrib bits 4 - 6 }
  137.                  MenuToRun:          String[8];
  138.                  Timeinbank:         Word;
  139.                  TodayCalls:         Byte;
  140.                  LanguageFileN:      String[8];  { *.LNG }
  141.                  Expirationdate:     String[8];
  142.                  CurrentFArea,
  143.                  CurrentMArea,
  144.                  CurrentDoor:        Byte;
  145.                  DefaultPacker:      Byte;
  146.                    {not bit mapped !
  147.                     1 = ZIP
  148.                     2 = ARC
  149.                     3 = LZH
  150.                     4 = ARJ}
  151.                  ExtraSpace:         Array[1..412] of Byte;
  152.                End;
  153.  
  154. (*  Attrib:
  155.  
  156. 1     Bit  0: MailCheck at logon
  157. 2     Bit  1: Newfiles Check at logon
  158. 4     Bit  2: No downloadratio
  159. 8     Bit  3: Female
  160. 16    Bit  4: Delete file after viewing
  161. 32    Bit  5: Display file only once
  162. 64    Bit  6: File viewed
  163. 128   Bit  7: Fullscreen viewer
  164.       Bit  8:
  165.       Bit  9:
  166.       Bit 10:
  167.       Bit 11:
  168.       Bit 12:
  169.       Bit 13:
  170.       Bit 14:
  171.       Bit 15:
  172. *)
  173.  
  174.   UserRecord = Record                                 (*  USERS.BBS   *)
  175.                  Name:               MsgToIdxRecord;
  176.                  City:               String[25];
  177.                  Password:           String[15];
  178.                  DataPhone,
  179.                  HomePhone:          String[12];
  180.                  LastTime:           String[5];
  181.                  LastDate:           String[8];
  182.                  Attrib:             Byte;
  183.                  Flags:              FlagType;
  184.                  Credit,
  185.                  Pending:            Integer;
  186.                  MsgsPosted,
  187.                  HighMsgRead,
  188.                  SecLvl,
  189.                  Times,
  190.                  Ups,
  191.                  Downs,
  192.                  UpK,
  193.                  DownK:              Word;
  194.                  TodayK:             Integer;
  195.                  Elapsed:            Integer;
  196.                  Len:                Integer;
  197.                  ExtraSpace1:        Array[1..2] of byte;
  198.                  Age:                Byte;
  199.                  ExtraUserrecPtr:    Integer;
  200.                  ExtraSpace2:        Array[1..3] of Byte;
  201.                End;
  202.  
  203. (*  Attrib:
  204.  
  205.       bit 0: Deleted user
  206.       bit 1: Screen clear codes
  207.       bit 2: More prompt
  208.       bit 3: ANSI graphics
  209.       bit 4: No-Kill
  210.       bit 5: Ignore Download Hours
  211.       bit 6: ANSI editor
  212.       bit 7: Do not disturb mode ON
  213.  
  214. *)
  215.  
  216.     NetNode    = Record
  217.                    Zone,
  218.                    Net,
  219.                    Node   : Word;
  220.                  end;
  221.  
  222.     NetAddress = record
  223.                    Zone,
  224.                    Net,
  225.                    Node,
  226.                    Point  : Word;
  227.                  end;
  228.  
  229.      InfoRecord = Record                              (* MSGINFO.BBS  *)
  230.                     LowMsg:      Integer;
  231.                     HighMsg:     Integer;
  232.                     TotalActive: Integer;
  233.  
  234.                     ActiveMsgs:  Array[1..200] of Integer;
  235.                   End;
  236.  
  237.       IdxRecord = Record                              (*  MSGIDX.BBS  *)
  238.                     MsgNum:       Integer;
  239.                     Board:        Byte;
  240.                   End;
  241.  
  242.           HdrRecord = Record                          (*  MSGHDR.BBS  *)
  243.                         MsgNum,
  244.                         ReplyTo,
  245.                         SeeAlsoNum,
  246.                         TimesRead:          Integer; { Not used }
  247.                         StartRec:           Word;
  248.                         NumRecs,
  249.                         DestNet,
  250.                         DestNode,
  251.                         OrigNet,
  252.                         OrigNode:           Integer;
  253.                         DestZone,
  254.                         OrigZone:           Byte;
  255.                         Cost:               Integer;
  256.                         MsgAttr,
  257.                         NetAttr,
  258.                         Board:              Byte;
  259.                         PostTime:           String[5];
  260.                         PostDate:           String[8];
  261.                         WhoTo,
  262.                         WhoFrom:            MsgToIdxRecord;
  263.                         Subj:               String[72];
  264.                       End;
  265.  
  266.  
  267. (* Msg Attributes:
  268.  
  269.       Bit 0: Deleted
  270.       Bit 1: Unsent net mail message
  271.       Bit 2: Net mail message
  272.       Bit 3: Private message
  273.       Bit 4: Received
  274.       Bit 5: Unsent echomail message
  275.       Bit 6: Local message
  276.       Bit 7: Not used
  277.  
  278.    Net Attributes:
  279.  
  280.       Bit 0: Kill after sent
  281.       Bit 1: Sent OK
  282.       Bit 2: File attach
  283.       Bit 3: Crash mail
  284.       Bit 4: Request Receipt
  285.       Bit 5: Audit Request
  286.       Bit 6: Is a Return Receipt
  287.       Bit 7: Not used
  288.  
  289. *)
  290.  
  291.  
  292.   SysInfoRecord = Record                              (* SYSINFO.BBS  *)
  293.                     CallCount:    LongInt;
  294.                     LastCaller:   MsgToIdxRecord;
  295.                     ExtraSpace:   Array[1..128] of Byte;
  296.                   End;
  297.  
  298.   TimeLogRecord = Record                              (* TIMELOG.BBS  *)
  299.                     StartDate:        String[8];
  300.                     BusyPerHour:      Array[0..23] of Integer;
  301.                     BusyPerDay:       Array[0..6] of Integer;
  302.                   End;
  303.  
  304.      MenuRecord = Record                              (* ????????.MNU *)
  305.                     Typ:      Byte;
  306.                     Sec:      Integer;
  307.                     Flags:    FlagType;
  308.                     Str:      String[75];
  309.                     Key:      Char;
  310.                     Data:     String[80];
  311.                     Fg,
  312.                     Bg:       Byte;
  313.                   End;
  314.  
  315.       EventRecord = Record
  316.                       Status:       Byte; { 0=Disabled 1=Enabled }
  317.                       RunTime:      String[5];
  318.                       ErrorLevel:   Byte;
  319.                       Days:         Byte;
  320.                       Forced:       Boolean;
  321.                       LastTimeRun:  String[8];
  322.                     End;
  323.  
  324.       BoardRecord = Record
  325.                       Name:         String[16];
  326.                       Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  327.                       Kinds:        Byte; { 0=Private & Public
  328.                                             1=Private 2=Public 3=Read-Only }
  329.                       Combined:     Boolean;
  330.                       Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,3=Alias/name}
  331.  
  332.                       ReadSecLvl:   Integer;
  333.                       ReadFlags:    FlagType;
  334.  
  335.                       WriteSecLvl:  Integer;
  336.                       WriteFlags:   FlagType;
  337.  
  338.                       SysopSecLvl:  Integer;
  339.                       SysopFlags:   FlagType;
  340.                     End;
  341.  ExtraConfig = Record
  342.                  SystemPath,
  343.                  MsgBasePath,
  344.                  TempPath:            String[66];
  345.                  RedirectDevice:      String[12];
  346.                  Resp19200,
  347.                  Resp38400:           String[40];
  348.                  ShowSecurity:        Boolean;
  349.                  ShowPswdAtLogon:     Boolean;
  350.                  BetaCode:            Longint;
  351.                  DefaultBoard:        Array[1..200] of boolean;
  352.                  Empty1:              Array[1..284] of byte;
  353.                  AllowCat:            Boolean;
  354.                  Answerboard:         Byte;
  355.                  Use7bitChars:        Boolean;
  356.                  BufferSize:          Word;
  357.                  Empty2:              Array[1..45] of byte;
  358.                  EntryColor:          Byte;
  359.                  FilesBeforeRatio:    Byte;
  360.                  MinSpace:            Word;
  361.                  ClearTemp:           Boolean;
  362.                  Empty3:              Array[1..163] of byte;
  363.                  UseAliasSystem:      Boolean;
  364.                  Ansilogon:           Byte; {0 = No,1 = Yes,2 = Auto detect}
  365.                  ExcludeSysOp:        Boolean;
  366.                  Empty4:              Array[1..122] of byte;
  367.                  AltFkeys:            Array[1..10] of string[60];
  368.                  Checkfiles:          Boolean;
  369.                  PasswordBoard:       Byte;
  370.                  Alt_J_Swaptoems:     Boolean;
  371.                  MaxTimeInBank:       Word;
  372.                  NoBirthDayAsk:       Boolean; 
  373.                  MaxDescLines:        Byte;
  374.                  Empty5:              Array[1..45] of byte;
  375.                  FastMailCheck:       Boolean;
  376.                  DefaultColors:       Array[1..10] of byte;
  377.                  Empty6:              Array[1..45] of byte;
  378.                  LinesInSystem:       Byte;
  379.                  CommonDir:           String[79];
  380.                  VersionNumber:       Word;
  381.                  FullScrChatBaud:     Word;
  382.                  PressEnterColor:     Byte;
  383.                  AreaSelectColor:     Array[1..3] of byte;
  384.                  StatusLineColor:     Byte;
  385.                  VirusChkMode:        Byte;
  386.                  WorkPath:            String[79];
  387.                  WatchCDatDos:        Boolean;
  388.                  UseCtrlX:            Boolean;
  389.                  MsgAfterPageBoard:   Byte;
  390.                  SearchAliases:       Boolean;
  391.                  EchoConvert:         Boolean;
  392.                  SwapAtPackers:       Boolean;
  393.                  InternalProtocols:   Byte;
  394.                  { bit 0 : Zmodem
  395.                    bit 1 : Ymodem batch
  396.                    bit 2 : Xmodem
  397.                    bit 3 : Xmodem 1K (Ymodem)
  398.                    bit 4 : Xmodem 1K G
  399.                    bit 5 : Ymodem-g }
  400.                  FirstMenuInSystem:   String[8];
  401.                  ColoredQuoteText:    Boolean;
  402.                  AddUploadersName:    Boolean;
  403.                  DaysUntilExpiration: Word;
  404.                  QWKBBSID:            String[6];
  405.                  QWKDefaultBoard:     Byte;
  406.                  QwkMaxNrToPack:      Integer;
  407.                  StatuslineStr:       Array[1..2] of string[100];
  408.                  Location:            String[40];
  409.                  UsPhoneNrFormat:     Boolean;
  410.                  DlCounterLBracket,
  411.                  DlCounterRBracket:   Char;
  412.                  QWKAllowTagLines:    Byte; {0=no, 1=yes, 2=only local areas}
  413.                  LogonSecLvl:          Word;
  414.                  LogonAge:          Byte;
  415.                  LogonPassword:       String[15];
  416.                  NoGroupMailCheck,
  417.                  NoUserListIntype27:  Boolean;
  418.                  GroupMsgSecLvl:      Word; 
  419.                  AskSex:              Boolean;
  420.                  AskAnsi,                   {0=ask, 1=yes, 2=no}
  421.                  AskMailCheck,              {0=ask, 1=yes, 2=no}
  422.                  AskNewFilesCheck,          {0=ask, 1=yes, 2=no}
  423.                  AskFullScrEditor,          {0=ask, 1=yes, 2=no}
  424.                  AskFullScrViewer,          {0=ask, 1=yes, 2=no}
  425.                  AskPagePause,              {0=ask, 1=yes, 2=no}
  426.                  AskScreenClears:     Byte; {0=ask, 1=yes, 2=no}
  427.                  PageStart:           Array[0..6] of string[5];
  428.                  PageEnd:             Array[0..6] of string[5];
  429.                  UseIEMSI:            Boolean;
  430.                  CapitalizeCity,
  431.                  CapitalizeAlias:     Boolean;
  432.                  VirusScannerCmd:     string[127];
  433.                  NoExtractBeforeScan: Boolean;
  434.                  VirusFoundErrorLvl:  Byte;
  435.                  SysOpsFscrChatClr,
  436.                  UsersFscrChatClr:    Byte;
  437.                  ScanForDupePhones:   Byte; {0 = no, 1 = log entry,
  438.                                              2 = don't allow}
  439.                  NormalLongDesc:      Boolean;
  440.                  NodelistPath:        String[72];
  441.                  MinCrashMailSec:     Word;
  442.                  NoDorinfo1:          Boolean;
  443.                  NoTouch:             Boolean;
  444.                  ZoneMatching:        Boolean;
  445.                  strictdupecheck:     Boolean;
  446.                  noextendednodeinfo:  Boolean;
  447.                  Birthdayverify:      Boolean;
  448.                  realmsgnumbers:      boolean;
  449.                  LocalAttachPath:     String[66];
  450.                  NoLACheckAtLogon:    Boolean;
  451.                  AllowedPackers:      Byte;
  452.                    {Bit 0 : ZIP
  453.                     Bit 1 : ARC
  454.                     Bit 2 : LZH
  455.                     Bit 3 : ARJ}
  456.                  Extraspace:          Array[1..3090] of Byte;
  457.                End;
  458.  
  459.  
  460.      ConfigRecord = Record
  461.                       CommPort:      Integer;
  462.                       InitBaud,
  463.                       InitTimes,
  464.                       AnswerWait:    Word;
  465.                       ModemInitStr,
  466.                       ModemBusyStr:  String[70];
  467.                       ModemInitResp,
  468.                       ModemBusyResp,
  469.                       Resp300,
  470.                       Resp1200,
  471.                       Resp2400:      String[40];
  472.  
  473.                       MenuPath,
  474.                       TextPath,
  475.                       NetPath:      String[66];
  476.  
  477.                       MinBaud,
  478.                       GraphicsBaud,
  479.                       XferBaud:      Integer;
  480.                       LowBaudStart,
  481.                       LowBaudEnd,
  482.                       DownloadStart,
  483.                       DownloadEnd,
  484.                       PagingStart,              {!! Not used anymore !!}
  485.                       PagingEnd:     String[5]; {!! Not used anymore !!}
  486.  
  487.                       MatrixZone,
  488.                       MatrixNet,
  489.                       MatrixNode:    Integer;
  490.                       AkaNet,
  491.                       AkaNode:       Array[1..5] of Integer;
  492.                       NetMailBoard:  Integer;
  493.  
  494.                       DefaultSec:                Integer;
  495.                       DefaultCredit:             Integer;
  496.                       DefaultFlags:              FlagType;
  497.  
  498.                       EditorCmdStr:    String[70];
  499.                       OriginLine:      String[60];
  500.                       SysopName:       MsgToIdxRecord;
  501.                       AutoLogonChar,
  502.                       FastLogon,
  503.                       ScreenBlanking,
  504.                       UseLastRead,
  505.                       MonoMode,
  506.                       DirectWrite,
  507.                       SnowCheck,
  508.                       NetEchoExit,
  509.                       OneWordNames,
  510.                       CheckMail,
  511.                       AskHomePhone,
  512.                       AskDataPhone,
  513.                       GraphicsAvail:   Boolean;
  514.                       InactiveTimeOut: Integer;
  515.                       LogonTime:       Integer;
  516.                       DefFgColor:      Integer;
  517.                       DefBgColor:      Integer;
  518.                       PasswordTries:   Integer;
  519.                       MaxPageTimes:    Integer;
  520.                       PageBellLen:     Integer;
  521.  
  522.                       Use_Xmodem:      Boolean;
  523.                       Use_Xmodem1k:    Boolean;
  524.                       Use_Ymodem:      Boolean;
  525.                       Use_YmodemG:     Boolean;
  526.                       Use_Sealink:     Boolean;
  527.                       Use_Zmodem:      Boolean;
  528.                       Inp_Fields:      Boolean;
  529.                       QuoteStr:        String[3];
  530.                       UploadCredit:    Integer;
  531.                       LoadingMessage:  String[70];
  532.                       SelectionPrompt: String[70];
  533.  
  534.                       VersionID:       Word;
  535.                       Resp4800,
  536.                       Resp9600:        String[40];
  537.  
  538.                       AkaZone:         Array[1..5] of Integer;
  539.  
  540.                       MatrixPoint:     Integer;
  541.                       AkaPoint:        Array[1..5] of Integer;
  542.  
  543.                       UseAka:          Array[1..200] of Byte;
  544.                       AskAge:          Boolean;         { Not used }
  545.                       SystemName:      String[40];
  546.                       RegKey:          Longint;
  547.  
  548.                       EntryfieldColor: Byte;
  549.                       MenuBorderColor: Byte;
  550.  
  551.                       SysOpSeclvl:     Integer;
  552.                       AllowDelMsgs:    Boolean;
  553.  
  554.                       EventRec:        Array[1..30] of EventRecord;
  555.                       BoardRec:        Array[1..200] of BoardRecord;
  556.                     End;
  557.  
  558.   GosubDataType = Array[1..20] of String[8];
  559.  
  560.   ExitRecord = Record
  561.                  BaudRate:        Word;
  562.                  SysInfo:         SysInfoRecord;
  563.                  TimeLogInfo:     TimeLogRecord;
  564.                  UserInfo:        UserRecord;
  565.                  EventInfo:       EventRecord;
  566.                  NetMailEntered:  Boolean;
  567.                  EchoMailEntered: Boolean;
  568.                  LoginTime:       String[5];
  569.                  LoginDate:       String[8];
  570.                  TmLimit:         Integer;
  571.                  LoginSec:        LongInt;
  572.                  Credit:          LongInt;
  573.                  UserRecNum:      Integer;
  574.                  ReadThru:        Integer;
  575.                  PageTimes:       Integer;
  576.                  DownLimit:       Integer;
  577.                  WantChat:        Boolean;
  578.                  GosubLevel:      Byte;
  579.                  GosubData:       GosubDataType;
  580.                  Menu:            String[8];
  581.                End;
  582.  
  583.                ProtocolRecord = Record
  584.                  Name            : String[15];
  585.                  Key             : Char;
  586.                  LogFileType     : Byte; { 0=OTHER,1=ICOM,2=DSZ}
  587.                  ProtocolType    : Byte; { 0=other,1=opus,2=BIMODEM}
  588.                  MaxFiles,
  589.                  Effic,
  590.                  Attribute       : Byte;
  591.                  { Bit 0: Actived
  592.                    Bit 1: Batch
  593.                    Bit 2: FullDuplex (Check for uploads)
  594.                  }
  595.                  DnCmdString,
  596.                  UpCmdString     : String[127];
  597.                  LogFileName,
  598.                  CtlFileName     : String[66];
  599.                  UpLogKeyword,
  600.                  DnLogKeyword    : String[20];
  601.                  NameWordNr      : Byte;
  602.                  DnCtlString,
  603.                  UpCtlString     : String[60];
  604.                  ExtraSpace      : Array[1..64] of byte;
  605.                end;
  606.  
  607.   LanguageRecord = Record
  608.       VersionNr:                Word;
  609.       Description:              String[227]; (* ie. SF - Suomi Finland *)
  610.       InputFieldDateFormat:     String[8];
  611.       DateFormat:               String[9];
  612.       TimeFormat:               String[8];
  613.       AnsiFilesPath:            String[79];
  614.       MenuFilesPath:            String[79];
  615.  
  616.       (*    Logon strings    *)
  617.  
  618.       AskAnsiLogon:             String[50];
  619.       AskNameStr:               String[40];
  620.       NameEnteredStr:           String[40];
  621.       AskCorrectStr:            String[60];
  622.       AskAliasStr:              String[40];
  623.       AskUseAliasStr:           String[60];
  624.       AskCityStr:               String[50];
  625.       AskSexStr:                String[60];
  626.       MaleChar,
  627.       FemaleChar:               Char;
  628.       AskAnsiGraphicsStr,
  629.       AskMailCheckStr,
  630.       AskNewFileCheckStr,
  631.       AskEditorStr,
  632.       AskScreenLenStr,
  633.       AskBirthDayStr,
  634.       AskPagePausingStr,
  635.       AskScreenClearStr,
  636.       AskHomePhoneStr,
  637.       AskDataPhoneStr,
  638.       AskNewPswdStr,
  639.       AskCheckPswdStr,
  640.       AskIfCorrectStr,
  641.       AskPasswordAtlogon,
  642.       MailCheckStr,
  643.       MailCheckSorryStr,
  644.       AskReadMessagesStr:       String[60];
  645.       AskPswdFailureMsgStr:     String[60];
  646.       AskFullScrReaderStr:      String[60];
  647.       ExtraSpace1:              Array[1..183] of byte;
  648.  
  649.       (*    Messagebase strings     *)
  650.  
  651.       BoardInfoStr1,
  652.       BoardInfoStr2,
  653.       AskStartNumberStr,
  654.       AskPauseAfterEachStr,
  655.       AskAreYouSureStr,
  656.       EndofrepliesStr,
  657.       EndOfMessagesStr,
  658.       AskPrivateMsgStr,
  659.       AskUseAliasInMsgs,
  660.       MessageAbortedStr,
  661.       AskJumpNumberStr,
  662.       InvalidMsgNumberStr,
  663.       ChooseMsgAreaStr,
  664.       MessageToAllStr:          String[60];
  665.       AskWhoToStr:              String[40];
  666.       AskSubjectStr:            String[9];
  667.       AskAliasInmsgs:           String[40];
  668.       NameNotFoundStr:          String[60];
  669.       NoWriteSecurityStr:       String[60];
  670.       ShowNewAreasStr:          String[60];
  671.       NoNewMessagesStr:         String[60];
  672.       AskHowManyLatestStr:      String[60];
  673.       ShowNewMsgsNewStr:        String[20];
  674.       ShowNewMsgsToYouStr:      String[20];
  675.       Received1Str,
  676.       Received2Str,
  677.       KillSentStr,
  678.       MsgPrivateStr,
  679.       MsgPublicStr,
  680.       FilesAttachedStr,
  681.       SentOKStr,
  682.       CrashMailStr,
  683.       ToFieldStr,
  684.       FromFieldStr,
  685.       SubjFieldStr,
  686.       DateFieldStr:             String[20];
  687.       ExtraSpace2:              Array[1..11] of byte;
  688.  
  689.       (*    Filearea strings    *)
  690.  
  691.       AskFileMaskStr,
  692.       AskBatchFilenamesStr,
  693.       AskFilenameStr:           String[60];
  694.       AskKeySearchStr:          String[40];
  695.       AskFnameSearchStr,
  696.       AskNewFileSearchStr,
  697.       AskNewFSearchDateStr,
  698.       ChooseFileAreaStr,
  699.       AskFilesToPackStr,
  700.       FileNotFoundStr,
  701.       AskFilesToDelStr:         String[60];
  702.       AskFilesToUpldStr:        String[60];
  703.       TransferInfoStr1:         String[80];
  704.       TransferInfoStr2:         String[70];
  705.       PleaseDescribeStr1:       String[30];
  706.  
  707.       (*   Other Strings    *)
  708.  
  709.       MonthStr:                 Array [1..12] of String[10];
  710.       ShortWeekDay:             Array [0..6] of String[10];
  711.       LongWeekDay:              Array [0..6] of String[20];
  712.       PressEnterStr,
  713.       PressSorPStr,
  714.       PleaseWaitStr:            String[60];
  715.       YesOrNoStr:               String[6];
  716.       YesChar,
  717.       NoChar:                   Char;
  718.       ReasonForChatStr:         String[17];
  719.       ChatStartStr1,
  720.       ChatStartStr2,
  721.       ChatEndStr,
  722.       DosShellStr1,
  723.       DosShellStr2,
  724.       UpdateStr1,
  725.       UpdateStr2,
  726.       FullPhoneNrMsg,
  727.       PswdNotChangedMsg,
  728.       AskCurrentPswdStr:        String[60];
  729.       CurrentAliasStr:          String[40];
  730.       CombinedStr1,
  731.       CombinedStr2:             String[60];
  732.       AskUserSearchStr,
  733.       AskAliasSearchStr:        String[60];
  734.       MoreStr:                  String[40];
  735.       MoreYesChar,
  736.       MoreNoChar:               Char;
  737.       InactivityStr,
  738.       InactivityWarningStr,
  739.       TimeLeftWarningStr,
  740.       TimeLimitExceededStr,
  741.       AliasInUseStr,
  742.       InvalidScrLenStr,
  743.       ShortPswdStr,
  744.       PswdCheckFailedStr,
  745.       PswdChangedStr,
  746.       WrongStr:                 String[60];
  747.       YesStr,
  748.       NoStr:                    String[10];
  749.       AskEnterMsgToSysOpStr:    String[60];
  750.       NoDwnldsFromAreaStr,
  751.       NoUpldsToAreaStr:         String[60];
  752.       AskLineNumberStr:         String[60];
  753.       FullScrChatHelpStr:       String[80];
  754.       PleaseDescribeStr2:       String[30];
  755.       PleaseDescribeStr3:       String[70];
  756.       PleaseDescribeStr4:       String[60];
  757.       DescTooShortStr:          String[60];
  758.       FileExistsStr:            String[60];
  759.       FileContainsVirusStr:     String[60];
  760.       FileNotReceivedStr:       String[60];
  761.       MinutesInBankStr,
  762.       TimeLeftStr:              String[60];
  763.       DepositAskStr:            String[60];
  764.       WithDrawAskStr:           String[60];
  765.       YouCanDepositStr:         String[60];
  766.       FileNotWantedStr:         String[60];
  767.       FilesRcvdStr:             String[60];
  768.       FilesSentStr:             String[60];
  769.       NoFilesFoundStr:          String[60];
  770.       NotEnoughTimeStr:         String[60];
  771.       AskPwdForFileStr1:        String[70];
  772.       AskPwdForFileStr2:        String[70];
  773.       AskMsgAfterPageStr:       String[60];
  774.       CommentToNextUserStr:     String[60];
  775.       AskSaveCommentStr:        String[60];
  776.       SelectFileAreaStr1:       String[60];
  777.       SelectFileAreaStr2:       String[60];
  778.       AskVirusChkFileStr:       String[60];
  779.       OnStr,
  780.       OffStr:                   String[20];
  781.       ScreenClearStr,
  782.       MoreStatStr,
  783.       AnsiStr,
  784.       AnsiEditorStr,
  785.       MailCheckStatStr,
  786.       NewFilesCheckStatStr,
  787.       DisturbmodeStr,
  788.       FullScrViewerStr:         String[60];
  789.       AvailableStr,
  790.       UnavailableStr:           String[20];
  791.       CurrentTimeStr,
  792.       CurrentDateStr,
  793.       ConnectTimeStr,
  794.       TimeUsedStr,
  795.       TimeRemainingStr,
  796.       CallLimitStr:             String[45];
  797.       AliasListTopStr:          String[78];
  798.       MsgReaderHeaderStr:       String[60];
  799.       FilesFieldStr:            String[20];
  800.       MsgNextReplyStr,
  801.       MsgPrevReplyStr,
  802.       MsgQuitRepliesStr,
  803.       MsgAgainStr,
  804.       MsgNextStr,
  805.       MsgBackStr,
  806.       MsgJumpStr,
  807.       MsgReplyStr,
  808.       MsgWriteStr,
  809.       MsgDeleteStr,
  810.       MsgKeepStr,
  811.       MsgCopyStr,
  812.       MsgXportStr,
  813.       MsgEditStr,
  814.       MsgTogglePrivateStr,
  815.       MsgUpdateUserStr,
  816.       MsgStopStr:               String[25];
  817.       UsageGraphInfoStr:        String[60];
  818.       BBSListNameStr,
  819.       BBSListPhoneStr,
  820.       BBSListMaxBPSStr,
  821.       BBSListOpenTimesStr,
  822.       BBSListSoftwareStr,
  823.       BBSListNetaddrStr,
  824.       BBSListSysopStr,
  825.       BBSListOtherStr:          String[15];
  826.       AskBBSToDeleteStr:        String[35];
  827.       FileOfflineStr:           String[18];
  828.       Status0Str,
  829.       Status1Str,
  830.       Status2Str,
  831.       Status3Str,
  832.       Status4Str,
  833.       Status5Str,
  834.       Status6Str,
  835.       Status7Str:               String[36];
  836. {             0 : 'Doing nothing special'
  837.               1 : 'Downloading file(s)'
  838.               2 : 'Uploading file(s'
  839.               3 : 'Reading messages'
  840.               4 : 'Writing message'
  841.               5 : 'Chatting with SysOp'
  842.               6 : 'Using external program'
  843.               7 : 'Logging on'
  844. }
  845.       TimeinBankStr:            String[45];
  846.       OptionNotAvailableStr,
  847.       ChooseDoorStr,
  848.       TooYoungStr,
  849.       QwkRepNotFound,
  850.       QwkAskQwkFormat,
  851.       QwkLimitReached,
  852.       QwkMessagesExported,
  853.       QwkPackingMessages,
  854.       QwkNoNewMessages,
  855.       QwkMessageMoved,
  856.       QwkDoYouWantToUpld,
  857.       QwkMaxNrToPackQ,
  858.       ScanningForDupePhoneStr:  String[60];
  859.       CallOrEventStr,
  860.       downstr:                  String[36];
  861.       NoReadAccess,
  862.       NoNewMessagesinArea,
  863.       JumpingToArea:            String[60];
  864.       MsgJumpToNextArea:        String[25];
  865.       QWKUpdPointers:           String[60];
  866.       QwkChoosePacker:          String[60];
  867.       Status8Str:               String[36];
  868. {             8 : 'Using QWK system' }
  869.  
  870.     End;
  871.  
  872.